<!--#include file="..\RootContent.inc"-->
<%
	Set File = Server.CreateObject("ActiveFile.File")
	bFilename=Session("ClsFun").giaima(Request("Filename"))
	bNam=Request("bNam")
	bLoaiVT=Request("bLoaiVT")
	Select case bLoaiVT
		Case 1
			bPath=RootContent & "upload\" & bNam & "\DEN\" & bFilename
		Case 2
			bPath=RootContent & "upload\" & bNam & "\DI\" & bFilename
		Case 3
			bPath=RootContent & "upload\" & bNam & "\Duthao\" & bFilename
		Case 4
			bPath=RootContent & "upload\" & bNam & "\Noibo\" & bFilename
		Case 5
			bPath=RootContent & "upload\" & bNam & "\Quyetdinh\" & bFilename
		Case 6
			bPath=RootContent & "upload\" & bNam & "\DENCB\" & bFilename
'Hien 25_06
		Case 7
			bPath=RootContent & "upload\" & bNam & "\ToTrinh\" & bFilename
	End select
	File.Name = bPath
	if File.Exists() then
		Response.AddHeader "Content-Disposition", "inline; filename=" & File.FileName
		File.Download
	end if
	Set File = Nothing
%>